5 DV=PEEK(186):IFDV<8THENDV=8
8 POKE53371,0
10 POKE53281,0:POKE53280,0:PRINT"[147]"CHR$(142)
20 PRINT"[129]     THE MIGHTY LOADSTAR NAME WHEEL[154]"
100 POKE19,65:INPUT"NAME: [155]";N$:POKE19,0
104 REM  OPEN4,4:CMD4:PR=1:REM DE-REM       THIS LINE FOR PRINTER
106 FORJ=0TO25
108 PRINTJ;
110 FORI=1TOLEN(N$)
120 C=ASC(MID$(N$,I,1))
130 IFC=32THEN150
140 C=C+J:IFC>90THENC=C-26
150 PRINTCHR$(C);
160 NEXT
170 IFJ<25THENPRINT
180 NEXT:IFPRTHENPRINT#4:CLOSE4
190 PRINT""
200 PRINTTAB(30)"[154](1[154]) NEW[157][157][157]NAME
202 [153][163]30)"(2CONT) SAMECMDCMDCMDCMDNAME
204 PRINTTAB(30)"(3[154]) BACK[157][157][157][157]TO LS
210 [161]A$:[139]A$[178]""[167]210
220 [139]A$[178]"1"[167][138]
230 [139]A$[178]"2"[167][153]"LOADLIST";:[137]104
240 [139]A$[178]"3"[167]40000
250 [137]210
10000 D[178][194](186):N$[178]"0:B.NAME WHEEL":[159]15,D,15,"S"[170]N$:[160]15:[148]N$,D:[128]
40000 [129]I[178]8[164]29:[151]820[170]I,I:[130]:[139]DV[177]8[175]DV[179]30[167][151]828,DV:[151]820[170]DV,8
40010 A$[178]"PRESENTER":[141]40030:A$[178]"HELLO CONNECT":[141]40030
40020 [153]"LOAD":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
40030 [129]J[178]8[164]29:I[178][194](820[170]J):[139]I[178]14[167][130]
40040 [160]2:[159]2,I,2:[160]2:[139]ST[167]40060
40050 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40070
40060 [130]:[142]
40070 A$[178]"HELLO CONNECT":Q$[178][199](34):[151]646,[194](53281):[153]"LOAD":[151]53272,23
40080 [153]"LOADP(null)2048,0:P(null)44,8:P(null)43,1:P(null)56,160:P(null)55,0:CLR:L(null)"Q$A$Q$","I
40090 [153]"RUN:":[151]631,13:[151]632,13:[151]198,2:[128]